home *** CD-ROM | disk | FTP | other *** search
/ Express Pd: GALORE / Express Pd Galore - The Amiga PD & Shareware CD (1994)(Express Pd)[!][Amiga-CD32-CDTV].iso / 3.0 / rexxc / ep_playpause.dopus < prev    next >
Text File  |  1993-12-27  |  445b  |  26 lines
  1. /* Delitrackeransteuerung über Diropus (Play<->Pause)
  2.    (c) 1992 Henryk Richter
  3.    ' = (alt)(ä)
  4. */
  5. options results
  6.  
  7. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  8.  address 'DOPUS.1'
  9.  toptext 'Eagleplayer-Port not found'
  10.  exit 0
  11.  end
  12. address 'rexx_EP'
  13.  
  14. status g ply
  15. if result=="yes" then do
  16.   pause
  17.   address 'DOPUS.1'
  18.   toptext 'Eagleplayer: Pause Playing'
  19.  end
  20.  else do
  21.   play
  22.   address 'DOPUS.1'
  23.   toptext 'Eagleplayer: Start Playing'
  24.  end
  25. exit
  26.